<script>on mouseUpif there is a window "•HA• Emblem" thenclose window "•HA• Emblem"elsepicture "•HA• Emblem",resource,dialog,falseif the stacks <> empty then show window "•HA• Emblem" at (right of the cd window - left of the cd window - the pictureWidth of window "•HA• Emblem") div 2 ,(bottom of the cd window - top of the cd window - the pictureHeight of window "•HA• Emblem") div 2show window "•HA• Emblem"wait until the mouseClickhide window "•HA• Emblem"set scale of window "•HA• Emblem" to 1set globalRect of window "•HA• Emblem" to "0,0,492,263"get (item 3 of the screenRect - 492) div 2 &return&(item 4 of the screenRect - 263) div 2set globalLoc of window "•HA• Emblem" to line 1 of it &","& line 2 of itset scroll of window "•HA• Emblem" to "48,10"show window "•HA• Emblem"end ifend mouseUp</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>275</left>
<top>118</top>
<right>358</right>
<bottom>139</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>underline</textStyle>
<name>HA menus</name>
<script>on mouseUpset hilite of target to not hilite of targetif hilite of target = true thenglobal pucput HARF ("•HyperAid• popups") into pucmakeHAMenuelseif there is a menu "•" then delete menu "•"if there is a menu "⌘" then delete menu "⌘"end ifend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>95</left>
<top>118</top>
<right>178</right>
<bottom>139</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>underline</textStyle>
<name>Use HyperAid</name>
<script>on mouseUpflashRect rect of target,4set cursor to 4lock screenset hilite of target to not hilite of targetif hilite of target = true thenstartUsingWhoAsWelluseHaelsepicture "•HA• Emblem",resource,dialog,falseif the stacks <> empty then show window "•HA• Emblem" at (right of the cd window - left of the cd window - the pictureWidth of window "•HA• Emblem") div 2 ,(bottom of the cd window - top of the cd window - the pictureHeight of window "•HA• Emblem") div 2show window "•HA• Emblem"stop using stack "•HyperAid• Demo"if there is a menu "•" then delete menu "•"if there is a menu "⌘" then delete menu "⌘"set hilite of bg btn ID 2 to falsehide bg btn ID 8unlock screenglobal pucif last char of puc=return then delete last char of pucif puc <> "" and puc <> HARF("•HyperAid• popups") thenanswer "Save changes to today’s popup commands?" with "Yes" or "No"if it = "Yes" then HAWF "•HyperAid• Popups",pucend ifclose window "•HA• Emblem"stopUsingWhoAsWellend ifend mouseUpon startUsingWhoAsWellanswer "“Start using” stack “Power Tools” prior to HyperAid?"&return&return&"(You must “start using” Power Tools prior to HyperAid if you wish to use its palettes from HyperAid’s menu!)" with "Power Tools" or "No"if it="Power Tools" then start using stack "Power Tools"end startUsingWhoAsWellon stopUsingWhoAsWellif ":Power Tools" is in the stacksInUse thenanswer "“Stop using” stack “Power Tools” also?" "No" or "Yes"if it="Yes" then stop using stack "Power Tools"end ifend stopUsingWhoAsWell</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>452</left>
<top>113</top>
<right>479</right>
<bottom>144</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>31885</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Open window</name>
<script>on mouseUpHAwndsend mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>365</left>
<top>129</top>
<right>448</right>
<bottom>139</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Save text/list</name>
<script>on mouseUpsaveListend mouseUp</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>14</top>
<right>480</right>
<bottom>112</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>New York</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUpselect the clickLineend mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>185</left>
<top>118</top>
<right>268</right>
<bottom>139</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>underline</textStyle>
<name>Click-select</name>
<script>on mouseUpif hilite of target = falsethen clickALineelse clickOffend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>365</left>
<top>118</top>
<right>448</right>
<bottom>128</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Load (as) text</name>
<script>on mouseUpif fld 1 <>"" then newrecglobal TGlbanswer file "Load as TEXT:"if it=empty then exit mouseUpput msg into LMput empty into TGlbput it into xopen file xrepeat until it = emptyread from file x for 40000000put it after TGlbput "bytes: " & length of TGlbend repeatclose file xHArep xput " --"&& LM after msgend mouseUp</script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>5</left>
<top>118</top>
<right>88</right>
<bottom>139</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>underline</textStyle>
<name>About</name>
<script>on mouseUpvisual shrink to center to grayvisual stretch from centergo to last cdend mouseUp</script>
</part>
<part>
<id>18</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>1</top>
<right>480</right>
<bottom>15</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>title</name>
<script></script>
</part>
<part>
<id>1</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>0</top>
<right>480</right>
<bottom>15</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpanswer "Clear current listing?" with "No" or "Yes"if it="No" then exit mouseUpput "" into CLget fld 2if number of cds >2 thenrepeat with x = 1 to number of cds - 2if fld 2 of cd x = it then put x&return after CLend repeatif number of lines of CL>1 thenanswer "Clear this field, only? Or clear all "&number of lines of CL&" fields titled “"&fld 2&"”?" with "Only this" or "All fields"if it= "Only this" then put number of this cd into CLend ifend ifif CL="" then put number of this cd into CLrepeat with x = 1 to (number of lines of CL)put empty into fld 1 of cd (line x of CL)put empty into fld 2 of cd (line x of CL)end repeatend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>464</left>
<top>1</top>
<right>478</right>
<bottom>13</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>1</name>
<script>on mouseUprepeat with x=1 to 20set name of target to xend repeatend mouseUp</script>
</part>
<name>•HyperAid• bg 1</name>
<script>on openStackif short name of this stack is in the stacksInUse and not (hilite of bg btn ID 6) then affirmPresenceHAif not (short name of this stack is in the stacksInUse) and hilite of bg btn ID 6 then affirmAbsenceHApass openStackend openStackon resumeStackif short name of this stack is in the stacksInUse and not (hilite of bg btn ID 6) then affirmPresenceHAif not (short name of this stack is in the stacksInUse) and hilite of bg btn ID 6 then affirmAbsenceHApass resumeStackend resumeStackon openCardset name of bg btn id 12 to number of this cdend openCardon arrowKey xif the selectedField = empty thenif x="right" and number of this cd = number of cds - 2 then exit arrowKeyif x="left" and number of this cd = 1 then exit arrowKeyend ifpass arrowKeyend arrowKeyon doMenu xif not(x="Delete Card" and number of this cd = number of last cd of this bg) then pass doMenuend doMenuon deleteCardif number of this cd = number of last cd of this bg then type "z" with cmdKeyend deleteCardon closeFieldif sfn= "Popups" or sfn= "To Do" thenif (sfn= "Popups" and fld 1 <> puc) or (sfn= "To Do" and fld 1 <> HARF("•HyperAid• To Do")) then saveListend ifpass closeFieldend closeFieldon saveListget fld 2put "" into CLif number of cds >2 thenrepeat with x = 1 to number of cds - 2if fld 2 of cd x = it then put x&return after CLend repeatif number of lines of CL>1 thenanswer "Save this field, only? Or save all "&number of lines of CL&" fields titled “"&fld 2&"” as one file?" with "Only this" or "All fields"if it= "Only this" then put number of this cd into CLend ifend ifget fld 2if it= "Popups" then get "•HyperAid• Popups"if it= "To Do" then get "•HyperAid• To Do"if the optionKey is down then get fld 2if it="" then get "HyperAid list file"put HAstripPath (it) into sfnask file "Save as:" with sfnset cursor to 4if it="" then exit saveListput it into tnget HAstripPath (it)put "" into trepeat with x = 1 to number of lines of CLput fld 1 of cd (line x of CL) after tend repeatif it= "•HyperAid• Popups" thenglobal pucif last line of t <>"" then put return after tput t into pucif there is a menu "⌘" then put puc into menu "⌘"wait 0end ifif it="•HyperAid• To Do" then put "•HyperAid• To Do list from " &the long date &", time: "& the time into line 1 to 2 of tHAWF tn,tif it<>"•HyperAid• To Do" and it<> "•HyperAid• Popups" thenrepeat with x = 1 to number of lines of CLput it into fld 2 of cd (line x of CL)end repeatend ifif it="•HyperAid• To Do" thenglobal TGlbput t into TGlbcheckToDoTodayend ifend saveList•••••••••••••••on clickOffset lockText of fld 1 to falseset hilite of bg btn ID 14 to falseend clickOffon clickALineset hilite of bg btn ID 14 to trueset lockText of fld 1 to trueend clickALineon mouseUpInPicture xif x="•HA• Emblem" then close window "•HA• Emblem"end mouseUpInPictureon useHapicture "•HA• Emblem",resource,dialog,falseif the stacks <> empty then show window "•HA• Emblem" at (right of the cd window - left of the cd window - the pictureWidth of window "•HA• Emblem") div 2 ,(bottom of the cd window - top of the cd window - the pictureHeight of window "•HA• Emblem") div 2show window "•HA• Emblem"HApl "Flute","cw.3 gw.3 cq eq fq gq aq a#q aw.3","tempo 340"start using stack "•HyperAid• Demo"global pucput HARF ("•HyperAid• popups") into pucif last line of puc <>"" then put return after pucstmn 1makeHAMenuset hilite of bg btn ID 2 to trueshow bg btn ID 8unlock screenhide window "•HA• Emblem"set scale of window "•HA• Emblem" to 1set globalRect of window "•HA• Emblem" to "0,0,492,263"get (item 3 of the screenRect - 492) div 2 &return&(item 4 of the screenRect - 263) div 2set globalLoc of window "•HA• Emblem" to line 1 of it &","& line 2 of itset scroll of window "•HA• Emblem" to "48,10"show window "•HA• Emblem"checkToDoclose window "•HA• Emblem"end useHaon makeHAMenuset the cursor to watchif there is no menu "•" then create menu "•"else exit to hyperCardput "About HyperAid" & return & "Info" & return & "Popups" & return & "Reminders" & return & "Style Editor" & return & "The Windows" & return & "HyperAid•Window" & return into theMenuput "-" & return & "Save Text" & return & "Send Text" & return & "Sort Text" & return after theMenuput "-" & return & "Navigator" & return & "Window Mgr." & return & "Super Grouper" & return after theMenuput "-" & return & "Search" & return & "Analyse Card" & return & "Create Card" & return & "Pick Card" & return after theMenuput "-" & return & "Delete" & return & "Duplicate/Shift" & return & "Edit Script" & return & "Hilite" & return & "Select" & return after theMenuput "Show/Hide" & return & "Style Objects" & return & "Style Text" & return & "Verbal cmd" after theMenuput theMenu into menu "•"set textStyle of menuItem 13 of menu "•" to "outline"set textStyle of menuItem 14 of menu "•" to "outline"set textStyle of menuItem 15 of menu "•" to "outline"global pucif there is no menu "⌘" then create menu "⌘"put puc into menu "⌘"end makeHAMenuon Popupsglobal pucset cursor to 4if fld 1 <>"" then newrecput "Popups" into fld 2put puc into fld 1clickALineend Popupson newrecanswer "Overwrite this field?" with "New Card" or "Overwrite"if it="New Card" then type "n" with cmdKeyend newrecon wndlput "Windows" into fld 2end wndlon HArep xglobal TGlbif x<>"" then put x into fld 2else put fld 2 into xif length of TGlb < 29998then put TGlb into fld 1else put char 1 to 20000 of TGlb into fld 1play "Boing" a5if length of TGlb < 29998 then exit HAreprepeat with c=1 to (length of TGlb div 20000)type "n" with cmdKeyput x into fld 2put char (c*20000+1) to ((c+1)*20000) of TGlb into fld 1play "Boing" a5end repeatend HArepon closeStackif not (fullpath() is in the stacksInUse) thenif there is a menu "⌘" then delete menu "⌘"if there is a menu "•" then delete menu "•"if there is a menu "«»" then delete menu "«»"set hilite of bg btn ID 2 to falseend ifpass closeStackend closeStackon suspendStackif not (fullpath() is in the stacksInUse) thenif there is a menu "⌘" then delete menu "⌘"if there is a menu "•" then delete menu "•"if there is a menu "«»" then delete menu "«»"set hilite of bg btn ID 2 to falseend ifpass suspendStackend suspendStackfunction fullpath itif it="" then get "this stack"else get "stack ""e&it"ereturn char 8 to (length of long name of it)-1 of long name of itend fullpathon affirmPresenceHAlock screenset hilite of bg btn ID 6 to trueif there is a menu "•" then set hilite of bg btn ID 2 to trueshow bg btn ID 8unlock screen with dissolveend affirmPresenceHAon affirmAbsenceHAlock screenif there is a menu "•" then delete menu "•"if there is a menu "⌘" then delete menu "⌘"set hilite of bg btn ID 6 to falseset hilite of bg btn ID 2 to falsehide bg btn ID 8unlock screen with dissolveend affirmAbsenceHAon deleteCardif number of cds of this bg > 1 then exit deleteCardtype "z" with cmdKeygo to prev cdanswer "HyperAid Protest: Won’t delete last remaining card of this my background!"end deleteCardon quitHAput the stacksInUse into SLrepeat with x= number of lines of SL down to 1if the freesize of stack line x of SL >0 thenput short name of stack line x of SL into SNif SN <> "•HyperAid• Demo" thenget line x of SLstop using stack itif there is a window SN then show window SNelse go to stack it in a new windowput "HyperAid: Compacting stack formerly “in use”: "& SNput cantModify of this stack into cmset cantModify of this stack to falsesend "doMenu Compact Stack" to hypercardset cantModify of this stack to cmend ifend ifend repeatput "HyperAid: Resetting/Compacting myself"HAwindgo to cd 1put "" into fld 2put empty into fld 1clickOffset hilite of bg btn ID 6 to falseset hilite of bg btn ID 2 to falsehide bg btn ID 8stop using this stackif the freeSize of this stack >0 thenput cantModify of this stack into cmset cantModify of this stack to falsedoMenu Compact Stackset cantModify of this stack to cmend ifend quitHA</script>
